foo: proc options(main);
declare myArray (9) fixed decimal init (1, 2, 3, 4, 5, 6, 7, 8, 9);
put list (mySum(myArray(1), myArray(2), myArray(3), myArray(4), myArray(5), myArray(6), myArray(7), myArray(8), myArray(9)));
end;
mySum: proc (a1, a2, a3, a4, a5, a6, a7, a8, a9) returns (fixed decimal); /* Non-Compliant - too many parameters */
declare (a1, a2, a3, a4, a5, a6, a7, a8, a9) fixed decimal;
return (a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9);
end;